model	"Rokkaku line"
{
	unit;
	para	roku.para.x,roku.para.y,roku.para.z;
	leverz	roku.levr.x,roku.levr.y,roku.levr.z;
	var		l2=roku.l/2;
	boundary	oval	0,0,roku.l/2, 0,0,1, (roku.l/2 + roku.r)*sqrt (2),roku.r*sqrt (2)
	{
		sphere	0,0,roku.l, roku.r;
		sphere	0,0,0, roku.r;
		and
		{
			plane	0,0,0, 0,0,-1;
			plane	0,0,roku.l, 0,0,1;
			cylind	0,0,0, 0,0,1, roku.r;
		}
	}
}